home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Business Assistant
/
Business Assistant.iso
/
acctg
/
db3plsar
/
fixtxt.prg
< prev
next >
Wrap
Text File
|
1986-08-04
|
629b
|
28 lines
********************(FIXTXT.PRG
CLEA
@ 15,8 SAY 'This program should only be run if your computer ì
does not have'
@ 16,8 SAY 'graphics installed. It will delete 4 files and rename ì
4.'
@ 19,23 say 'Is this what you want to do?'
?
store ' ' to option
WAIT ' ? ' TO OPTION
IF OPTION<>'Y'
RETURN
ENDIF
SET TALK ON
DELE FILE MENU.TXT
DELE FILE INV.TXT
DELE FILE LINE.TXT
DELE FILE CUST.TXT
RENA MENU1.TXT TO MENU.TXT
RENA INV1.TXT TO INV.TXT
RENA LINE1.TXT TO LINE.TXT
RENA CUST1.TXT TO CUST.TXT
SET TALK OFF
CLEA
?
? 'Ok,all set now enter the command DO MENU'
RETURN